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$s pit 16-SEP-1984 02:10:14 VAX/VMS Macro v04-00 Page 1 | 
yoae g- iets 8g: 48:25 SUM.SRCISUMEDIT.MAR;1 . se 
0 1 SUMSED 
0090 g “IDENT WORebO0" | 
000g; | 
444 5 FRR AAA ERA EAEAEARARAAEEAEEAEAEAAAEEAREREEEEEEReeeeeeeeeeeeeeese 
7* * 
000 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 . 
900 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ° 
44 13 :* ALL RIGHTS RESERVED. * 
e 7 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3088 \§ :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR ANY OTHER * 
0000 14 ;* owes THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;3* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it 1g :* TRANSFERRED. * 
5 te 
0000 18 ;* THE ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ca 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 $9 * CORPORATION. * | 
@ ® 
0000 3 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 $i 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | 
:* ® 
0000 25 ;* * 
4464 $$ FERRARA AAA EAE AE AAA AAA RARER eee eee | 
e | 
0000 28 
0000 9 5++ : | 
sit 3; FACILITY: SUMSHR shareable Library 
oer my § Moernats | 
0000 «34: | 
0000 5 ; ENVIRONMENT: USER MODE 
0000 » 3 | 
0000 7 ; AUTHOR: R. Newland 
0000 8 ; 
44 ip ; MODIFIED BY: | 
0000s 41: v03-002 mTROOO2 Mike Rhodes 18 ia y-198 3 
0000 4g : Correct handling of file access Rage B, ReaD _UPD_LINE 
0000 43 ; when an_error occurs. Also, make the RAB globally available 
siti te : to the TPARSE action routines. 
9000 46 ; v03-001 MTROOO1 Mike Rhodes 19-Jan-1983 | 
000 47 ; Create and a local UBF for use in SUMSINIT and SUMSLINE. 
000 48 ; The local UBF precludes ACCVIOs resulting from the caller's 
45 $3 : RAB ROP=LOC, when processing SUMSHR's escape character é 
9000 51; v02-001 =e B. Schreiber 21-Mar-1980 
000 5 : Make totally position independent. 
0000 ; 
0000 4 ;-- 


—————— -- —_ — 
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8° : -SETTL DECLARATIONS | 
; Z 
53 3 Macro definitions 
009 61 DEFUPFBLK ; Source update merge offsets | 
8 66 DEFEDBLK ; Edit block offsets 
6 DEF ISBLK ; Input stream block offsets 
00 64 DEFCMDTYPE ; Command Line type 
00 65 DEF SUMCBL ; SUM control block 
000 96 SF ABDEF ; FAB 
8008 6 SRABDEF : R 
0 68 SNAMDEF 3; NAM block 2 
0000 69 STPADEF 3; TPARSE definitions 
0000 70 SRMSDEF ; RMS definitions 
0000 71; 
0000 ie ; che 
0000 73 ; state definitions 
0000 74; 
0000 75 $EQULST SUM_ST_..0,.< - 
0000 76 SET , = ; Set up for source or update 
0000 77 NUP , = ; No more updates to process 
0000 78 sxc , = ; Next Line from source file 
0000 79 UPD , - ; Next Line from update file 
0000 80 UPE , = ; Report update errors 
0000 81 UPR , = ; Update ready 
0000 56 BLK , = ; Process next edit block of update 
0000 8 GET , = ; Get next update Line 
0000 84 EOF > : End of file 
0000 85 ; 
0000 86 ; er BS 
0000 87 ; Procedure flag byte definitions 
0000 88 ; 
0000 89 _VIELD PRC,0,< - 
0000 90 <EXPED, ,M> - ; Expected edit command 
0000 9% <DELINE.,M> - ; Deleted Lines information pendino 
0000 38 <ERRORS,,M> - ; Clash errors to report 
0000 9 <HIEDIT,,M> - ; i mg» precedence edit overides others 
0000 94 <NODATA,,M> - ; Data from edit being ignore 
0000 95 > 
0000 96 ; 
0000 97 ; 
0000 98 ; 
48 99 ; Local storage 
139 ; 
000 101 ; 
0000 4 138 -PSECT SUMSRW_DATA,NOEXE,LONG 
0 + : 
30 105 Sum_CUR_RAB: ; Address of the currently active RAB. 
00000000 By : $ -LONG 0 
Boe 1 } SUM_UBF _ADDR: ; Address of local UBF. The size of 
00000000 1 -LONG 0 ; the UBF is established by the size 
119 ; of the main program's (caller's) RAB. 
00000000 +112 .PSECT SUMSRO_DATA,NOEXE ,NOWRT LONG | 
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113; 
114: 
ap 115 SuM_ISSZE: : Size of input st block 
00000082 9000 116 «LONG 1S_K_BLN ais ncaa amas 
004 118 SuM_EDSZE: : Size of Edit block 
0000001A 0004 119 .LONG €D_K_BLN 


vOe=000. TPARSE "SSEp-1986 08:48:52 ESUmsactsumepit mars: = 28° 4, 
.SBTTL TPARSE 


.PSECT SUMSRW_DATA,NOEXE ,LONG 


TPARSE_BLOCK: 
.LONG TPA$K_COUNTO 
-BLKB = TPASKLENGTHO-4 


; Continue Tparse parameter block with own data 
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00 ¢ SUM_TPARSE: 
00000024 002C 136 TPA_W_LOC1 = .-TPARSE_BLOCK 
BH BI rn usothe rma 
= ao = .-- os L 
$0909 4 60 5 120 TPA_B_ISFLAGS TPARSE_BLOCK 
Mattie 9030 Tt Eee psa - 
90000089 0031 148 TPA_B_EDFLAGS = .-TPARSE_BLOCK 
$0090 ‘ Ee te TPA_W pois TPARSE_BLOCK 
Soonoo se §035 "Bohne tae e 
0000002¢ 0054 146 TPA_W_LOC = .-TPARSE_BLOCK 
60 $09 e 8 4 128 TPA_W_LINTYP TPARSE_BLOCK 
09000086 ists OO aii . 
000000 0 0038 150 TPA_G_AUDDS = .-TPARSE_BLOCK 
0000040 0038 151 é 
0000038 0040 138 TPA_Q_CMNT = .-TPARSE_BLOCK 
00000048 0040 15 : 
C0000040 00468 154 TPA_Q_LINEDS = .-TPARSE_BLOCK 
00000050 0048 155 .BLKQ 1 
0050 156; 
0050 157 
00000008 158 .PSECT SUMS$RO_DATA 
9008 159 ; 
0000002c 0008 160 COMMA = “X2C 
000000 008 161 SEMICOLON = *X3B 
0000003¢ 008 168 LESSTHAN = *X3C 
008 164 SINIT_STATE MER_STATE ,MER_KEY 
00 196 : Get Ist character of Line 
008 167: 
008 168 SSTATE 
00 169 $TRAN  TPAS_LAMBDA, ,ACT_BLANKS_SIG 
008 170 SSTATE 
008 171 STRAN ‘=", EDIT 
00 1% STRAN ‘XZ. CMND,ACT_PERCENT 
17 $TRAN '/* 
174 STRAN LESSTHAN,DATA,ACT_ESC 
175 STRAN ‘a’, TPAS. 
1% STRAN  '\*CMNDTACT BACKSLASH 
17 STRAN TPA$_EOS.DATA 


STRAN TPAS_ANY,DATA 
End data Line 


SSTATE DATA 
STRAN  TPAS_LAMBDA, TPAS_EXIT,ACT_EXIT,,,0 


6 1 
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End normal command Line 


SSTATE CMND 
STRAN TPAS_LAMBDA, TPAS_EXIT,ACT_EXIT,,,CMD_M_CMND 


; End data terminating command 


SSTATE TERM 
STRAN TPAS -LAMBDA, TPAS EXIT act _EXI 
_ CAND! CMD_MTEDT rit Emp _M_EDEND> 


pele jejeloleolololeleleoleilolololololo) 


Edit command 
Read locator-1 
SSTATE EDIT 
~ACT_SUPPRESS 
Tag! LAMBDA 
TPAS_LAMBDA, ,ACT_BLANKS_NSIG 
'LOCATOR, ,ACT_LOC1 


Read Locator-2 


SSTATE 
STRAN TPA$_EOS,TPAS$_EXIT 
$TRAN SEMICOLON, ,CMNT ,ACT_CMNT 


'LOCATOR, ,ACT_LOC2 
$TR TPAS_EOS, TPAS"EXIT 
Read audit "sieten © 


SSTATE 
STRAN TPAS$_EOS,TPAS_EXIT 
STRAN SEMICOLON, -CMNT,ACT_CMNT 


Nn st AUDIT 
STRAN TPAS- fost TPA$_EXIT 
ipo TCANTCACT.. CMNT 
n 7 T_AUDEND 

STRAN PAS. AY TAUDCH,ACT_AUDCH 
Read comment Line 


SSTATE 
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STRAN TPAS_EOS,TPAS_E 

STRAN SEMICOLON, CANT. ACT. CMNT 
SSTATE CMN 

STRAN TPAS_LAMBDA, TPAS_EXIT 


Subexpression to parse locator 
SSTATE LOCA 17 


STRAN TPA$’ “DECTMAL ACT LOCNUM 
$STRAN TPAS-LAMBDA, TPAS_E 


STRAN ‘+! 
STRAN TPAS_LAMBDA,TPAS_EXIT 


TPAS_DECIMAL, ,ACT_PLUS 
TPAS_LAMBDA, TPAS_EXIT 
SEND_STATE 


- RESTORE 
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LSBTTL SUMSINIT 


o 
Functional description: 
This procedure is called to initialise the update files. 


Input parameters: 


4(AP) = Address of input stream control block 
thet = Address of update files 
12(AP) = Address of main program RAB 


Outputs: 

IS_L_MAIN_FAB(R9) = FAB address of source file 
Implicit outputs: 

The edit nodes List. 


SUM_UBF_ADDR points to the iocal UBF which is allocated (if it has 
not been previously). 


SOOCCOCOCSCOOSCOSCOCOCOCOOCOOCOOOOOOOOOOOOOOOOOOO COO 
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HRAVUMIM DOOM DLOVS OOW 9 OAAS & &NOOO0000 09 00 09 09 09 09 09 Cd 09 00 09 09 00 0000 00 CO C9 CO CD CODON CD OD O00 
tt FB QOODDOOO00O0 OO OOO OO O00 0000 09 09 00 09 09 09 09 SI NIN NS NINN NSS OPA AA AAO OOO 
AUER 20 OONOAUES WUD 2 0 OO NAME WIN 9 OD NAME WIN 0 OO NOU EWN 0 ODNOU EWN 


COOOCOOCOCOCOOOCOOOCOSOOOOSOOOOSOOSOSOOOSOSOSOSOSOOSOSOOOSOSOOOSOOOOOOOOOOSOSS 


0000 -PSECT SUMSCODE,NOWRT,LONG 
OFFC ENTRY SUMSINIT_EDIT,“*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
02 11 BRB SUMSINIT 
OFFC «ENTRY SUMSINIT_CMND,“*M<R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11> 
SUMSINIT: 
50 01 400 MOVL #1,R0 ; Assume successful completion 
58 04 AC DO MOVL 4 (AP) ,R8 ; Get address of SUM control block 
59 04 AB 00 MOVL UM_L_ISDATA(R8) ,R9 ; Get input stream data block address 
OA 6 01 BNEQ $ ; Branch if block has been allocated 
OOAS §=3 01 BSBW GET J5_BLK ; Get and initialise data block 
6D 50 €9 001 BLEC at ; Error of LBC 
04 AB 59 ~ 00 a $$ MOVL R9,SUM_L_ISDATA(R8) : Save data block address 
1 BS 1 CLRW SUM_W_LINE_NO(RB) : Reset return Line number 
0449 00 90 00 MOVB #SUR_ST_SET,13_B STATE(R9) i Initialise state to SET 
06 a9 O01 8B MOVW #1,15_W-LINE_NO(R9) ; and source file Line number 
5A O08 AC OD MOVL (AP) RT : Get file List address 
58 OC AC OD MOVL 2(APSR : Get RAB address 
00000004"EF 0 TSTL SUM_UBF _ADDR : Has a UBF been allocated? 
19 12 BNEQ ; If NEQ a UBF already exists. 
7E 0 As 3 MOVZWL RABSW_USZ(R8B),-(SP) ; Set up the buffer size. 
00000004 ‘EF F PUSHAB SUM_UBF_ADDR ; Stack arguments for LIBSGET_VM 
04 A DOF 4 PUSHAL (SP) , eee 
00000000‘ GF 9 4. 4 CALLS eee G_LIBSGET_VA 3; Allocate a local UBF. 
37 E 4 BLBC R $ : Error if LBC 
BE D5 004 TSTL = (SP)+ : Clean up the stack. 
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10$: 


20$: 


30$: 


40$: 
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$7865 SUM. SRCJSUMEDIT .MAR; 1 wel ve: 

MOVL R8 {s_t MAIN_RAB(R9) 3; Save RAB address 

CLRL —- RABSWRFA+ re : Clear RFA 

CLRW RABSW_RFA+4(R8) s ¢ eran 

BSBW BAe SRC_RFA ; and save it 

MOVL AB C_FAB(R8),1S_L_MAIN_FAB (RO) sone FAB address 

MOVL 10,1S_L_FILELIST(R9) “; Save ‘is list address 

BEQL 40$ ; If EQL there is no List so return 

BBSS #UPF_V_INIT, = ; Branch if already initialised 
UPF_6_FIFLAGS(R10),30$ 

MOVAL UPF_Q_EDITS(R10), = ; Initialise edit List head in 
UPF_Q_EDITS(R10) ; first file block 

MOVAL UPF_Q_EDITS(R10), = 
UPF~Q-EDITS+4 (R10) 

SDISCONNECT RAB=R8,ERR=SUMSCLOSE_ ERR ; Disconnect RAB 

BLBC RO,40$ 3; Error if LBC 

BSB process FILE ; Process update files 

BLBC asaye if 

MOVL Ral »,R10 

BNEQ 10$ ; End of list if EQL 

MOVL IS_L_FILELIST(R9),R Reset file List pointer 

MOVL _IS“L“MAIN_FAB(R9) RADSL FAB(RB) ; Reset FAB address 

SCONNECT RAB=RB,ERR=SUMSOPEN_ER 

BSBwW RESTORE _SRC_RFA ; Restore source file RFA 

MOVL UPF_Q EDITS(R10),IS_L_EDIT BLK(R9) 3; Reset edit block pointer 

BISB2 #SUA_A_AUDIT!SUM_M_AUBITNEQ, Switch on audit trail and 
1$_B-FCAGS(R9) ; work first audit es nev 

CLRW IS_W_DELETES(R9) ; Initialise number of deleted Lines 

RET 


: Error Cc 
; Get next file block address 


K 
SUMSEDIT 16-SEP-1984 02:10:14 VAX/VMS Macro V04-00 Page SUMS 
Miyetitc GET_IS_BLK ety 7 §¢:39:85 SUM.SRCJSUMEDIT.MAR;1 ° VO4- 

BA 
BA : 
BA p++ 
BA 3 
SA 5 ; Functional descriptfon: 
BA - 3 This routine obtains a nary block for an input stream data 
p84 28 ; block and if successful initialises the block. 

OBA 60 ; Inputs: 
aA 61 ; 4 

: one 

BA eS 

OBA 64 ; Outputs: 

OBA 65 ; 

OBA 96 ; R9 = Address of memory block 

OBA or 

OBA 68 ;-- 

OBA 4 : 

OBA 0 GET_IS_BLK 

OOOOO000'EF 9F OQOOBA 71 USHAB SUMSVIRT_ADDR ; Stack arguments for LIBSGET_VM 
OOO000000'EF 9F O0CO ¢ PUSHAB SUM_ISSZE S ses 
00000000'GF 02 FB 00C6 7 CALLS #2,G*LIBSGET_VM ; Get memory block 
E9 O0CD 74 BLBC RO,10$ ; Error if LBC 
59 QO000000'EF 00 0000 75 MOVL SUMSVIRT_ADDR,R9 ; Get block address 
69 0082 8F 00 69 00 2¢ 0007 376 MOVCS #0,(R9),¥0,#15 K_BLN,(R9S ; Clear block 
51 32A9 SE OODF 377 MOVAB _IS_T FAB(R9) RT ; Set FAB block pointer 

itt 78 SFAB_STORE” FAB = R1, = 3 and initialise as a FAB 

OOE 79 ID = #FABSC_BID, - 

00E3 380 BLN = #FABSC_BLN 

50 01 DO OOEB 81 MOVL #1,R0 ; Set success status 
OOEE 6 10$: 
05 OOEE 8 RSB 


A 
.SBTTL GET_IS_BLK 


3 
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~SBTTL PROCESS_FILE 


+ 
Functional description: 

This routine is called to process each update file 
Inputs: 


FF 3B? 
EF § ‘+ 
EF 8: 
per y 3 
EF 0; 
OFF 892 | 
OEF 36 : Rg = RAB address 
EF 94; = Input stream data block address 
pee 32 3 Ro = File node address 
bee 3 : Outputs: 
DOE 44 ; RO = Success/error status 
OOer 431 : Implicit outputs: 
OOEF 108 : Edit blocks List 
SOEE cos | 
; OOEF 406 PROCESS_FILE: 
lpekietect tone Oo wae hd TeFABYEABSL —— ee 
00 36 A9 18 E2 OOF4 409 BBSS #F ReSv Set for open by NAM block 
: OOF9 410 ai IST ERB ABSL._ FOP(R9), 5$ 
OOF9 41g ‘ SOPEN FAB=1$_T_FAB(R9) ,ERR= SUMSOPEN. ERR : Open input file 
3c a8 $2 ADOBE OO la pvAL ae’t Pa Sey y 
0111415 SconNect RAB= RB” ERR=SUMSOPEN_ ERR ; Connect RAB t 
2650 €9 01 g 416 :‘Error if LBC 
01 417 SF IND RAB=RB,ERR=SUMSREAD_ERR ; Initialise RFA 
0550 €9 0132 aig BLBC — RO, 108 : Error if LBC 
10 Ads A oi 5 4 0 } CLRL =‘IS_L_EDIT_BLK(R9) : Clear last edit node address 
3 : : ¢ > Read update file and create edit nodes 
20 10 01 434 ° BSBB = SET_UP_NODES : Read update file 
B18, 258 fos: i 
O13, 4 5 nie SDISCONNECT RAB=R8,ERR=SUMSCLOSE_ERR 
Ph 4 § ; SCLOSE FAB=1S_T_FAB(R9) ,ERR=SUMSCLOSE_ERR : Close input file 
0159 430 30S: 
05 0159 431 RSB 


B(R9) ,RABSL FABRE) : Put FAB address into RAB 
o FAB 
| 


+ 


M1 
VO4-000. SET_UP_NODES "SrSEP=1986 08:58:52 ESUm\sRclsumepYrsman:1 = 29° UP, voee 


O15A 4 3 .SBTTL SET_UP_NODES 
| ? 5 Subroutine to form all edit_nodes 
15a 4 ; : Inputs: 
1SA 4 8 3 R8 = RAB address 
! {26 : R10 = file node address 
15A 441 : Outputs: 
15A tt8 : RO = Success/error status 
tit 
18, 445 SET_UP_NODES: 
15A 123 ASSUME UPF W_LOC2 EC <UPF_W_LOC1+2> 
134 tte 10$ ASSUME €D_@_Coc EQ <ED_W-LOC1+2> 
90000000 EF oF 138 449 PUSHAB SUMSVIRT ADDR ; Stack arguments for LIBSGET_VM 
00000000'GF 02 FB O16 43 CALLS r -S°LIBSGET_VM : Get edit block 
‘ ; Error 
5B O0000000°EF 00 $190 483 MOVL SUMSVIRT_ADDR,R11 ; Set block pointer 
14, AB SA 00 0177 454 MOVL 10,E0_L7FILE(R11) : Fill in file block address 

19 AB OC AA 90 O17B 455 MOVB UPF_B _FICENO(R10), - ; and file number 
180 $28 ED 6 FILENO(R11) 

OF AB 10 AB 00 B18 45 MOVL paar nr ey sens “EDU REACOCRI 1) ; Record file address (3 words) 

12 AB 14 AmB B60 if 458 MOVW RABSW_RFA+4(R8) ,ED_W_RFA+4(R11) 

OC AB B& O18A 459 CLRW ED_wW_CINES(R11) 

08 AB 404 AA DO 018D 460 MOVL PF_@_L0C1(R10) ARH LOC1(R11) ; Move both locator numbers 
18 AB O09 AA 90 019¢ 461 ‘as MOVE §UPF~B"EDFLAGS(R10)7EB_B_FLAGS(R11) ; and flags to edit node 
ones 28 + 44 46s ; tet READ_UPD_LINEA : Sood ia from input file 

0001827A 8F 30 DI 190 465 CHPL RO, #RMSS_EOF : Is error end-of-tile? 
3 No 
54 oy 06 1A6 = 467 MOVL #CMD_M_ALL ,R4 ; Fake an end-of-edit command 
* Bm | byes r+ ¢3 408 BRB 50$ ; Error will be reported on next pass 
04a8 30 01AB £36 "  BSBW — COMMAND_CHECK : Check for command 
E6 5 E9 O1AE 471 BLBC ° 3 Syntax error if LBC 
09 54 O01 +€O 0161 tts BBS #CMD_V_EDTRM,R4,50$ ; Branch if data terminating command 
DE 54 00 €0 0185 47 BBS #CMD_V_CMND ,R4 $0$ ; Branch if normal command 
of AB B6 01B9) 474 INCW gp WILINES(R115 ; Increment number of insert Lines for 
D9 —Sss«ii 1B af? 508 BRS os 3 this edit 
08 AB D5 OBE i35 ; TSTL ED_W_LOC1(R11) : If Loc-1 and Loc-2 = 0 and Lines <> 0 
21. 12 O1C1 4 BNEQ 608 - there is an insert in front of 
1¢3 47 : the file, otherwise throw this 
1¢ 480 3 Edit node away 
0c “8 83 \t 2 1 Hay 43 W_LINES(R11) 
18 54 02 Al 18 4 4 BBC #CMD_V_EDEND,R4,60$ ; Branch if not end of edits 
0 458 4 or ire ? : Sher gt He ADDR ; Stack arguments for LIBSFREE_VM 
0000096 "GF 02 FB 1b8 4 : CALLS @# "GPL TBSFREE_VR : Return unused memory block 
08 f 1DF q BLBC RO,70 :; Error if LBC 
10 11 O1F2 4 : BRB 80$ 
1E4 489 60$: 


9 3 Insert block into edits list 

i D,R4,80$ ; Branch edit terminating command 
¢ BRW 10$ 3 Go back for next edit command 
4 
5 
6 


an wo 


F 18 

OA 54 2 3 

FF6D 1 

QOOO00000'EF 00 FB 
05 


CALLS #0,SUMSLIB_ERR ; Report error 
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| 
| 


OOCOCCOCOOOOOoO 
ee Se Oe Oe Oe Oe Oe Oe Oe Be Oe Se Oe Se Se ee 


—\VIOP PP 
oomwoon 


-—[9OO-O0 —9o-C9C 9°97 
-—OGef-— —OMmMomMmo 


=] 
o 


WWWALA AP POPIPIPINONIPU NI 9 2 — BQO OO ODOOOOOO 


ouw wi Moo 
Sl22 BS LSNSS 
DNAWUE WN SO ODNAU EWN CO OOD NAU EWN (OOO NOU EWN OOw 


nn 


— 
DDVOLNMAOWWDOWTNS DBOOW "9 OUMNH 


& 
oo —-@-co09 


wm WoO 


DVDV DV IVDIVIVIVIV LVL LIV IVIV LULU IVSV SUSU UST ISIS ISIS IS STSIOSIOSIOSIOSION £ = 


OOCOOCOCOCOCOOCOCCOOCOOCOCOO 


WAI 


nn" 


i a Sth 9 Og: 40:15 AX/VMS necro v04-00 Page ! 


S SUM.SRCJSUMEDIT.MAR; 1 


-SBTTL INSERT_NODE 
Subroutine to insert block into edit List 
This routine checks that the edit node is in sequence with any other nodes 
from the same update file. If not, the edit node is marked so that a 


warning can be produced later. However, the node is placed in the correct 
position. 


Inputs: 
1 = address gf block to insert 
IS_L_EDIT_BLK(R9) = Last edit node inserted from current update file 
Outputs: 
None 
NSERT_NODE : 
MOVL B(AP),RO ; Get address of first file block 
MOVAL UPF_Q EDITS(RO),RO ; and form edit List head address 
MOVL IS _C_EDIT_BLK(R9),R1 : Get address of last node inserted 
BNEQ 108 : If NEQ there is one 
MOVL RO,R1 ; This is first node so scan List 
a BRB 20$ : from List head 
"  CMPW D.W_LOC1(R11),ED_W_LOC1(R1) ; Is edit out of sequence? 
BGTR os ; No 
BISB #ED M_SEQERR,ED_B_FLAGS(R11) ; Mark edit node 
MOVL RO,R1 : Scan List from List head to find 
20$ BRB 30$ ; correct position 
anid MOVL R11, 1S_L_EDIT_BLK(R9) ; Set new ‘last edit’ address 
"MOVE = (RT), RI > Get next block 
cMPL eR, RO : At end of List? 
BEQL 6-408 : Yes if EQL 
cHPU ED W_LOCT(R11),ED_W_LOC1(R1) ; Is new LOC-1 <= current LOC-1 
eas BGTR os : No if GTR 
: INSQUE (R11) ,@ED_L_BWD(R1) : Insert new node into List 
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40 ~SBTTL READ_UPD_LINE 
tS : Subroutine to read Line sequentially from current update file 
44 : There are two entry points: 
46 : READ_UPD_LINE to access the file and read Line 
43 ; READ_UPD_LINEA if update file is already accessed and ready 
8 $3 : for next Line to be read 
1; 
6 § 5 3; Inputs: 
0 37 ; R8 = RAB address for reading file 
0 o 55: Implicit Inputs: 
8 0 2$ ; SUM_UBF _ADDR address of local UBF, to aviod access conflicts. 
0230 224 : Outputs: 
0230 4 : RO = success/error status 
0230 60 ; Rg = Line size 
8 , 281 ; R?7 = Line buffer address 
0 30 508 : .ENABL LSB 
0 35 365 : 
0 366 READ_UPD_LINE: 
0300 30 0230 56 BSBw ACCESS_UPDATE ; Access update file 
4F 50 =2«E9 8 2 208 BLBEC RO,10$ ; Error if LBC 
0236 570 READ_UPD_LINEA: 
4 AB DD 0236 71 PUSHL RABSL_UBF (RB) ; Save the old UBF address. 
AS DD 0 $e 2 PUSH RABSL_ROP(R8) ; Save the old ROP field. 
04 AB 00010000 BF CA C 7 BICL #RABSA_LOC, RABSL_ROP(RB) ; Set MOVE mode for $GET. 
24 AB OO000006'EF 00 64 74 MOVL SUM_UBF_ADDR, RABSL_UBF (R8) ; Use local buffer. 
024c 575 $GET RAB= RB, ERR = SUMSREAD_ERR =: Read Line 
04 AB BE DO 58 278 MOVL (SP)+, RABSL_ROP(R8) ; Restore old ROP 
2408 8 dO 5F 7 MOVL (S$P)+, RABSL_UBF (R8) ; and ‘ 
1F o 63 78 BLBC :; If error, don't copy string. 
56 32 A C 0 66 579 MOVZWL RABSW_RSZ(RB) .RE : Set Line size 
57 A dO 6A 580 MOVL RABSL_RBF (RB) ,R ; and buffer address 
2A AD = 04 88 8 + BISB2 #SUM A_SRCUPD 1S _B_FLAGS(R9) ; Mark as update Line 
OE 04 AaB =8610~—~=COEO $ ; BBS @RABSY_LOC rABse ROP(R8), 10$ ; Should we copy string to UBF? 
by 7 : PUSHR #*M<RO_R Re R3,RE,R5> ; Save registers across MOVC 
2 AB 79 4 MOVC3 RABSW_RSZ(RBS,- : String ength 
00000004 ‘FF 7C¢ 85 @SUM_OBF_ADDR,- : Source buffer 
24 BB 81 : @RABSL_UBF (RBS : Destination buffer 
F SOBA Hh POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
05 8 52 : 10$ RSB 
0286 590 ° .DSABL LSB 
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vou=600. SUMSL INE SrSEP=198 08:88:53 ESUm\SRcTSUMEDYesmans1 = #8 «1by_ 
/SBTTL SUMSLINE | 
This procedure jis called from the main program to get the next 
input Line. This Line may come from either the source file or 
an update ‘file. 
Inputs: 
4(AP) = Address of control block 
Ouputs: 
Next Line 


eENTRY SUMSLINE,“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
MOVL 4(AP),R1 3 Get address of control block 
MOVL SUM_L_ISDATA(R1),R9 ; Set input stream data block address 
MOVL 1$_C_MAIN_RAB(R9S ,R8 ; Get main program RAB address 

MOVL IS_L_EDIT_BLK(R9),R11 ; Get current edit block address 
ace 


IS _B pray oP ST_SET,#SUM_ST_EOF ; Branch to service routine 
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ONAN FS DF OM DWOAAAOAAAGAOAAAAAO 


SE 
0063" 10$: «SIGNED_WORD™ LINE_SET-10$ 
008A° - SIGNED _WORD LINE_NUP=-10$ 
0090' -SIGNED_WORD LINE_SRC-10$ 
OOA1' - SIGNED_WORD LINE_UPD-10$ 
0127" » SIGNED_WORD LINE_UPE-10$ 
14F* -SIGNED“WORD § LINE~UPR-10$ 
16E° » SIGNED_WORD LINE_BLK-10$ 
0191' - SIGNED_WORD LINE_GET-10$ 
0204" - SIGNED_WORD LINE_EOF-10$ 
SUM_RETURN: 
MOVL R11,1S_L_EDIT_BLK(R9) ; Preserve edit block address 
51 046 AC DO MOVL 4(AP),R1 ; Get address of control block 
61 50 00 MOVL RO,SUM_L_STS(R1) ; Return status 
1C Al 2A Ad 90 MOVB 1S_B FCAGS(R9), = ; Edit flags 
SUA_6 FLAGS(R1S 
20 1C Al «=6(02~—=C*‘é€@‘* BBC #SUA_Q_SRCUPD, - ; Branch if source Line 
SUM 6 _FLAGS(R1) ,5$ 
1A Al 26 Ad =—s«BO MOVW IS _@ _INSERT_NO(R9),SUM_W_INSERT_NO(R1) ; Inserts 
08 Al 1 D MOVQ UPF_@_AUDDSTR10), = >; Supply audit string descriptor 
SUM~Q-AUDDS (R1) 
A 33 AA E MOVAL UPF T_ les ene ; Form NAM block address 
10 Al AA A MOVZBL NAMSB"RSL(R10), - ; Get file spec size 
S FILESP+0(R1) 


UM 

MOVL NAMSL-RSA(R10), = 
SUM_Q-F ILESP+4(R1) 

BLBS rror Line 


RO, ; Ife 
BBSC #SUM_V_SRCUPD,SUM_B_FLAGS(R1),10$ ; don't mark as update Line 
; Source file Line 


; and address 


AINWINIA AANA AIR ROPOPIPNPPUNIINY BQO ODDOOOOCOOOOO0000 
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50 
1B 1C Al 02 E46 


18 Al 06 Ad 97 as SUBW3 40 F W_LINE_NO(R9),SUM_W_LINE_NO(R1) ; Number of Line being returne | 
12 50 BLBC ~=—_—«RO, 108 : If efror save deleted Line information | 


; until first good Line 
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BBSS 


CLRW 
RET 
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; Branch if no pending deleted info 


UM_W_INSERT_NO(R1) ; Return number of Lines delete 
; Set deleted Lines information fiag 


; Reset number of deleted Lines 


; Inputs: 


HRAEAEAAAAAAAAA AAA A OOO AO 
NNN NNO AA AAO 
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-SBTTL LINE_SET 


Routine to service SET pyete 
Determines if the next Line is to come from the main source file 

or from an update file. f there are no more updates to be processed 
the state is set to NUP; if there are updates but the next update is to 
be angi ted to a later source Line the state is set to SRC; if the next 
Line is to come from an update file the state is set to UPD. 


Outputs: 
state changed 
MOVB #SUM_ST_NUP,IS_B_STATE(R9) ; Assume no more updates 


B 
MOVL IS _L-FICELIST(R9S,R1 ; Get address of first file block 
BEQL 10 ; If EQL there are no update files 


MOVAL UPF_Q_EDITS(R1),R1 :; Form edit block List head address 

CMPL R1,R1T 3 Any edits still in List? 

BEQL 10$ ; No if EQL so must be source Line 

MOVB #SUM_ST_UPD,IS B_STATE(R9) ; Assume next Line is from update file 

CMPW 1S_W-LINE_NO(R9)> - ; Is Line number of source file less 
ED-W_LOC1TR11) ; than locator-1 of next edit? 

BGEQ os ; No if GEQ 

MOVB #§ #SUM_ST_SRC,IS_B_STATE(R9) ; Change state to source 

BSBW ACCESS_SRC ; Access source file 


| 

| 

R11 = Current edit block address | 
BRW SUM_DISPATCH ; and dispatch again 
| 

| 
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~SBTTL LINE_NUP 


There are no more updates to process so just read next source Line 
; and return to caller. The source file is already accessed so 


; READ_SRC_LINEA can be used. 


READ SRC_LINEA ; Get next source Line 
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vive LINE_SRC eset 1 8g: 48:33 SUM.SRCJSUMEDIT.MAR;1 

te ~SBTTL LINE_SRC 
D 715 ; The next source Line is read from the main input file. The Line 
D at ; number is incremented and compared with the locator-1 value of the 
D 17 ; next edit. If the Line number remains lower the state remains at SRC. 
D at 3; If the Line number is equet or greater the state is changed to UPD. 
4 ah ; The next call to SUMSLINE will then get an update Line. 
4 4 1: Inputs: 

0 4 7 : R11 = Current edit block address 

p 5 : Outputs: 
P= s 5 : state 

035) 959 

03 D 730 LINE_SRC: 

02c4 30 D 731 BSBW READ_SRC_LINEA ; Get next Line from source file 
08 AB 206 A9 «Bl O03 9 7 ; CMPW IS_W_LINE_NO(R9), = ; Is source Line number still lower 
033 7 ED-W_LOC1TR11) 3 than next locator-1 
04 19 0335 oye BLSS 108 > Yes if 
0409 03 90 0337 135 as MOVB § #SUM_ST_UPD,IS_B_STATE(R9) ; Reset state to UPD 
FF71 =-31 $338 737 ; BRW SUM_RETURN ; and return with Line 


Se ee oe Se a 


ee 
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yoee600 LINE_UPD ety yi §¢: 39:85 SUM. SRCJSUMEDIT.MAR;1 . a 
E 33 ~SBTTL LINE_UPD 
E 741 ; The next update operation is prepared by determining the range of 
3 ot) ; the edit, that is the number of edit operations which have clashed. 
E 744 ; Inputs: 
E oe§ 3 R9 = Input stream data pointer | 
: i : R11 = Current edit block address 
0 ; 743 ; Outputs: 
6 E 5a 3 IS_L_FIRST_EDIT(R9) = First edit block of update 
O33E O36 3 IS"L-LAST_EDIT(R9) = Last edit block of update 
0 2 P37 3 IS"WOHIGH-LOC2(R9) = Highest loc-2 value of update 
§ ie, FF 
8 E 756 LINE_UPD: 
14 Ad 5B 0 E 757 MOVL 11,1S_L_FIRST_EDIT(R9) ; Save address of first edit 
54 OA AB C 034 758 MOVZ2WL ED_W_LOC2(R11)7R4 ; Set highest loc-2 value 
ec Ao «=654— OBO C0346 759 VW R4715 W HIGH LOC2(R9) ; and supply as routine output 
2A A9 «08 «BA 034A) = =—760 BICB #SuM_A SUBCLSH, 1S_ _FLAGS(R9) ; May be first edit in clash 
034E 761 BICB #<PRC_A_ERRORS! - ; Assume no clash errors, 
O34F roe PRC_M_HIEDIT! - ; highest edit does not overide others, 
O34F 76 PRC_M_NODATA>,=- 3 and all data lines inserted 
05 1¢ O34F 764 1$_B_PROCFLAGS(R9) 
04 Ad =s«OO0'S 90 0352 765 MOVB #SOM_ST UPR, 1S_B_STATE(R9) 
69 D0 0396 766 MOVL IS L-FICELIST(ROT.RS  ; Set files List 
55° 10 AS ODE 339 167 pole MOVAL UPF_G_EDITS(RS) ,R5 : list head address 
2 6B 00 0350 789 MOVL (R11),R2 3; Point to next edit block 
5 52 D1 369 770 CMPL Re R5 ; At end of List? 
zt 13 0363 «9771 BEQL «=s«4$ > Yes if 
51 4 rf 365 ak MOVL R4,R1 ; Set highest locator value of edit 
OA 1 68 77 BNEQ 20 : If zero set from loc-2 of current edit 
51 OA AB 3C O36A 774 MOVZWL ED _W_LOC2(R11),R1 ; Set highest locator value of edit 
06 12 0 $f 775 BNEQ : If zero set from loc-1 of current edit 
51 O08 AB 3C¢ Bee 76 208 MOVZWL ED_W_LOC1(R11),R1 ; Set highest locator value of edit 
08 A2 51 #Bi 0 74 «778 CMPW R1,ED_W_LOC1(R2) ; Does this edit overlap with next? 
1A 19 0 2 19 Biss 408 : No if LSS 
A 4 1; This edit block clashes with next 
OA A2 54 Bi 7A 67 ‘ ; CMPW R4 ,ED_W_LOC2(R2) : Is its loc-2 higher than current loc-2 
046 «18 43 784 BGEQ : No if GE 
54 OAA2 3C g 5 25$ MOVZWL ED_W_LOC2(R2),R4 ; Extend range of edit 
OA A2 i 4 7 > TSTW D_wW_LOC2(R2) ; Is edit all inserts? 
a) 7 788 BEQL ; Yes i L 
05 a9 «608— 88 9 789 B1SB #PRC_R_HIEDIT,IS_B_PROCFLAGS(R9) ; Highest edit overides others 
D 790 30$: ; therefore replace later) 
@] 1 D 791 BSBB CHECK_ERR ; See if error should be reported 
58 § 1) . 136 MOVL Re RIT 3; Point to next edit block 
co 1 é 79 BRB 10$ 
3 794 408: 
18 Ad) =65B- OO 94 795 MOVL R11,IS_L_LAST_EDIT(R9) ; Set address of Last edit block 


*3 
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14 AY $e Dd CMPL R11, I1S_L_FIRST_EDIT(R9) ; If first block then single non-clashing 
he BEQL 508 ; edit else last block of clashing edits 
48 1 BSBB CHECK _ERR ; See if error should be reported 
08 05 Ad OO E BBC #PRC_V_ERRORS, = ; Branch if no errors to report 
I$ B-PROCFLAGS(R9) ,50$ 
04 a9 06 (9 MOVE #SOMST_UPE,IS_B SfATE(R9) ; Set state to report errors 
B 4A9 OD 508 MOVL IS_LIFIRST_EDIT(R9),R11 ; Reset edit block pointer to first 


FEES = 31 BRW SUM_DISPATCH 

Local subroutine to check if clashing edit should be reported 

Inputs: 
R11 = Edit block address 

Outputs: 
None 

HECK_ERR: 
BBS 
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OE 18 AB O00 £0 O #ED_V_SUPPRESS, - ; Branch if suppress bit set 
B ED_B_FLAGS(R115,20$ 

08 D5 B TSTL ED _ W_LOC1(R11) ; If Loc-1, Loc-2 and Lines = 0 
0 1 B BNEQ 108 3 then do not report as error 

OC AB. OB S38 TSTW gp W_LINES(R11) 
046 ~=« bee ; 0$ 

05 a9 04~=«88 O38 ni; BISB  #PRC_M_ERRORS,IS_B_PROCFLAGS(R9) ; Set error report bit 
05 03C¢ H — 
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Co 830 .SBTTL LINE_UPE | 
ee § : The update operation contains clashing edits which must be reported 
ca 4 : Inputs: 
Ca g ; R11 = Address of next clashing edit 
2 8 : Outputs: 
C4 40 : R11 = Edit block pointer advanced 
C4 842: 
C4 rk} LINE_UPE: 
SA 14 g8 C4 44 MOVL ED_L_FILE(R11),R10 ; Get file block address of clashing edit 
FE6 0 c8 45 BSBW READ-UPD_LI ; Read update file to get edit Line 
50 00848800 8F 00 8 r MOVL #SUMS_EDITSCLSH,RO ; Set return status 
1409 5B D1 D 4 CMPL R11, 1S_L_FIRST_EDIT(R9) ; First report of this set of clashes 
06 13 De 48 BEQL 108 ; Yes if EQL 
2A a9 08 88 0 D8 49 re BISB § #SUM_M_SUBCLSH,IS_B_FLAGS(R9) ; Set 2nd or Later flag 
18 Ag 58 D4 03 31 cmPL R11,1S_L_LAST_EDIT(RO) ; at last edit? 
04 A9 05 90 Beee 38 208 MOVB #SUM_ST_UPR,IS_B_STATE(R9) ; Set state to Update Ready 
58 68 20 O3E6 835 "MOVE = (R11), R11 ; Advance to next edit block 
FEC 1 0369 856 BRW SUM_RETURN 


2 
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43 28 -SBTTL LINE_UPR 
EC 9 : The next yecete operation is ready. Any errors have been reported 
EC ; to the caller. 
ae 
EC 4 : Inputs: 
4 66 : R11 = Current edit block address 
4: rt: : Outputs: 
EC 5 ; None 
EE BYP 
EC 48 LINE_UPR: 
5B 14 A9 00 33 74 MOVL IS L_FIRST_ EDIT(R9),R11 ; Reset pointer to first edit block 
04 a9 = 06 30 3 75 MOVE #SOM~ST_BLR 18 B_STATE(R9) ; Reset state to BLK 
54 =2C Ad C F4 u MOVZWL 15 WIHIGH_LOC2TR9),R4 =; IS edit operation an insert? 
08 ig bare 7 BNEQ os ; No if NEQ 
08 AB OB SFA 78 TSTW ED_W_LOC1(R11) ; Is insert to front of file? 
09 13 pare 79 BEQL 60$ ; Yes if EQL 
O1E9 i 8 FF 880 BSBW READ_SRC_LINE ; Read one more Line from source 
EAA 1 a0e se! 50s BRW SUM_RETURN 
0220 30 0403 bas pra BSBW SKIP_SRC_LINES ; Skip over source Lines to be deleted 
FE8D 31 0408 885  _— BRW SUM_DISPATCH ; and dispatch 
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7 ; -SBTTL LINE_BLK 

§ ; iais routine is get Led to begin erpseesing of the next edit block 

Q ; The file from which ecitt Lines will come is prepared for access. The 
91 ; state is reset to GET. 
6 
93 ; 
Be 3; Inputs: 
38 : ; R11 = Current edit block address 
9 : Outputs: 
35 leery 
oF : None 
8 LIne BLK: 
04 MOVL ED_L PILeCnt i). R10 ; Get file block address of file 
05 BSBW ACTESS_UPD ; prepare for reading file 
38 BLBC RO,20$7 f LB 
Be $s BBCC #PRC _V_EXPED,IS _B_PROCFLAGS (RS), 5$ ; Clear expected edit flag 
09 TST ED_W_LOC1(R11) : Is this insert in front of file? 

u 108 BBSS #PRC_V_EXPED,1IS_B _PROCFLAGS(R9). 1 AES Set expected edit flag 
i " MOVB #SUM_ST Sere IS_B_ STATE(R9) ; Reset state to GET 

3 208 BRW SUM_BISPATC ; and dispatch again 

16 BRW SUM_RETURN ; Return to caller with error 
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vival LINE_GET o-oo lobe 8g: 49:85 SUM.SRCJSUMEDIT.MAR; 1 . (5b) 
r ; $15 ; -SBTTL LINE_GET 
? E 954 ; Routine to get next Line from update file 
4ce ; 
: : ; 3 Inputs: 
r : 4 5: R11 = Current edit block address 
r ; | 5 : Outputs: 
4OE 3 § : R11 = Next edit block address 
15E 98) | 
4eE 9 : LINE_GET: 
5A 14 AB 00 r 2 Z 108 MOVL ED_L_FILE(R11),R10 ; Set file block pointer 
FEO 38 Oe 935 ; BSBW READ_UPD_LINEA ; Get next Line from update file 
1250 +€ 4 9 § BLBS RQ, ; OK if LBS 
0001827A 8F 50 D1 0438 9 CMPL RO ,#RMS$_EOF i; Is error end-of-file? 
Hi is a F 938 BNEQ 3; No if NEQ 
50 00848810 of ¢ pede 823 pov ZRUNS _PRAEOF .RO ; Set premature end-of-file status 
44A 941 208: 
020C 30 044A B28 BSBW COMMAND_CHECK ; Check for syntax and type 
44 50 +€9 Beek 94 BLBC RO, 3; Syntax error if LBC 
07 54 Be EO 0450 944 BBS #CMD_V_CMND,R4,30$ 3; Branch if command Line 
09 05 AD «204 «EO 0454 «945 BBS #PRC"V-NODATA, = : Ignore data line if higher precedence 
0499 946 1S_B-PROCFLAGS(R9),10$ : edit is overiding others 
40 11 ot Ree S08 bes 908 ; Return to caller with Line 
03 54 O01 €1 0458 949 ' BBC #CMD_V_EDTRM,R4,10$ ; Branch if not edit terminating command 
0—E 05 Ad 3 =«600-~—CtiséE2 best 950 BBSS #PRC_V_EXPED,IS_B_PROCFLAGS(R9) ,40$ ; If qupect tng edit get next Lin 
c9 18 01 E1 464 951 BBC #ED_0_SEQERR,ED B-FLAGS(R11),10$ 3; Was edit out of sequence? 
50 00848818 8F DO 0469 95¢ ms MOVL § #SUMS$~EDOUTSEG,RO ; Yes: report error now 
2c (11 O47 994 "BRB 100$ 
we 956 : Found end of this set of lines 
235 88h ios: 
18 A9 D1 0472 959 CMPL  R11,IS_L_LAST_EDIT(R9) ; Last edit block in range? 
OF 13 0476 960 BEQL 60$ ; Yes if EQL 
0405 A9 O03 €1 0478 oe) BBC #PRC_V_HIEDIT, - ; Branch if concatenating inserts 
47D é 1S _B-PROCFLAGS(R9) 50S: | 
05 a9 «#410 ~= «88 44) +¢4 50s BISB #PRC"M_NODATA,IS_B_PROCFLAGS(R9) ; Ignore data from other edits | 
04 Ad 6 90 0481 365 ; MOVB OSUM_ST_BLK,1S_B_STATE(R9) ; Reset state to BLK 
oe BRP hae in 
0449 00 90 4 7 se rin MOVB #SUM_ST_SET,IS_B_STATE(R9) ; Reset state to SET 
4 . 
BO $9 3 4 ‘ art BLBC " : If error return to caller first 
FE 1 244 3f6 808 BRw SUM_DISPATCH 3 or dispatch again 
50 00848808 BF D0 0494 37 : MOVL #SUM$_SLPSYNERR,RO ; Set SLP syntax error status 


MOVL (R11) ,R11 3 Point to next edit block 
| 


vOu=600. 


2E Ad 
FEOE 


LINE_GET 


498 75 
B6 0498 ? 
49 ? 
9 978 


31 


90$: 


100$: 


INCW 
BRw 


BrREb=198e 8:38:52 USUmYSachsumeoly maes1 = P29" 98, 
1S_W_INSERT_NO(R9) ; Increment number of new/replace Lines 


SUM_RE TURN 


; Return to caller 


aga 


50 0001827A 8F 
FEO4 


LINE _EOF 


16-SEP 
g-3fF 
0. .SBTTL LINE_EOF 
: : Routine to service EOF state. 
3 ? 3; returned to the caller 
3 5: 
3; Inputs: 
g 5 : ‘e 
988 ; None 
989 ; 
39 : Outputs 
993 ; None 
994 ; 
gg 


eo 
996 LINE_EOF : 
99 MOVL #RMSS EOF ,RO 
998 Beis SUM_RETURN 


71986 88:58:53 ESUmYSacTSGmEDYT MAR: 1 


An RMS end-of-file state is 


; Set RO to eof state 
; and return to caller 


vousb00 ACCESS_SRC "Sr SEp- 


Be 08:58:53 EStmVSacHSineoYteman:1 == P29 (385 


re ! 9 -SBTTL ACCESS_SRC 
4AB 1 4 ; Routine to access main source file. The RAB is connected to 
rey : t ; the main file FAB if it is not already connected. | 
4AB 1005 ; Inputs: 
4AB 1 $3 
4AB 1 8 3 R8 = Main program RAB address 
4AB 1 3 : 
4AB 1009 ; 
4AB 1010 ; Outputs: 
4AB 1011; 
4AB 1012 ; None 
4AB 101 : 
4AB 1014 
4AB 1015 Access. SRC: 
02 a8 f 4AB 1 1g TSTW RABSW_ISI(R8) : Is it connected to a FAB? 
ws 4AE 101 Fae 108. : No if EQL 
51 2A9 DE 048 13i8 MOVAL IS_T_FAB(R9),R1 ; Set input stream FAB address 
51 CAB 01 04B4 1019 CMPL RABSC_FAB(RBS,R1 ; Is it connected to SUM F 
2E 12 0488 18 0 EQ 20$ ; No if NEQ, it's connected e main FAB 
O4BA 1021 SDISCONNECT RAB = R8, - } Disconnect RAB from SUM FAB 
O4BA 10 ¢ ERR = SUMSCLOSE_ERR 
OC AY D4 0409 10 CLRL ist CONN_FILE(R9) ; Clear file connected flag 
19 50 €9 Rees 8 ¢ 108 BLBC RO; 208 ; Error if LBC 
3C AB «61C AD =«6—DO (O4CF 61026 MOVL IS_L_MAIN_FAB(R9), = ; Put main program FAB into RAB 
0404 1027 RABSC_FABTRE) , 
4D4 1028 SCONNECT RAB = R8, - ; Connect main program FAB to RAB 
4D4 10 9 ERR = SUMSOPEN_ERR 
02 50 €9 O4E3 1030 BLBC RO,20$ ; Error if LBC : 
0c 10 0466 1031 BSB RESTORE_SRC_RFA : Restore source file RFA 
04E8 10 : 20S: 
05 O4E8 103 RSB 
COM 
DI 
ED_| 
ED" 
£07! 
ED_| 
ED_| 
ED_| 
ED"| 
- 
| ED~ 
| e 
{ RE RAT ~ ed aoe 


Oe et Se 


2 
vOe=000. SAVE_SRC_RFA "S$EP=198¢ 08:58:52 USUmiSAcisumepYrsman:1 = "89" 3%, 


4E9 1035 ~SBTTL SAVE_SRC_RFA 
te 1039 | 
. | 
rt} ! 3 ; Routine to save source file record file address 
4E9 1040 ; Inputs: | 
4E9 1041 ; 
4E9 1 tg 3 R& = RAB address 
4E9 10435 ; 
4E9 1044 ; Outputs: 
4E9 1045 ; 
rt 34 1 ¢$ J None 
4E9 10467 ; 
4E9 1 re . 
04E9 104 SAVE_SRC_RFA: 
2449 10 AB 010 04E9 1050 MOVL RABSW_RFA+0(R8), - ; Move RFA to save buffer 
O4EE 1051 1S_W_MAIN_RFA+0(R9) 
28 Ao) = 14 AB OBO SOOKE 1936 MOVW RASSQ_RFAF4(RB), - 
O4F3 105 1S_W_PMAIN_RFA+4(R9) 
05 O4F 1054 


RSB 


Sumi 

UM 
SUM, 
SUM, 
SUM, 
SUM, 
SUM, 
SUM, 
SUM, 
SUM, 
SUM 
SUM, 
SUM, 


a 
vourb00. RESTORE _SRC_RFA ~3Ep=138e 98: 38: 43 SUM SR RCJ SSGmeD IT MAR; 1 _ 33) 


F 


4F4 1936 ~-SBTTL RESTORE_SRC_RFA 
tre 38 
: e tile record file address and 
rh : 60 ; neat deur eetolete ti a A is zero a rewind is performed, 
4F4 1061 ; if non-zero the record is Leeeeee by a find. 
BE be 
ark 1968 | Ines: 
474 1 66 : R&8 = RAB address 
tke 1068 
ret 1969 ; Outputs: 
ocr ie ; RO = Success/error status 
O4F4 1078 : 
O4F4 1074 RESTORE SRC RFA: 
R9), - 3; Move RFA back to RAB 
eae bers 1976 ove bRBSO REATOCABS “ : i sordal 
28 A BO O4F9 en MOVW 15 U RAIN Br ASstR®), = 
16 12 bere 1998 BNEQ 10$ ~ :; If NEQ then do find 
5 0500 1080 TSTL RABSW_RFA+0(R8) ; Test other part of RFA 
at BBE §30$ 1081 NEQ 0$ : If NEQ then do find 
4 ™ 0505 108 SREWIND RAB = R8, ; Rewind to start of file 
0505 1083 ERR = SUMSREAD_ ERR 
OS ie we 
Put into RFA access mode 
lS ah 1989 SF IHD ares te: ‘Se ne hosed record pointers 
MSREA 
00 90 $339 1089 MOVB PRABSC SEO" RABSB RAC(R8); peoet ¥9 oe vential access mode 
a a 0385 1994 Sces nabs -, : havence past this record which has 
0530 1936 ERR = SUMSREAD_ERR ; read before. 
53F 1093 20$: 
05 bez 1094 RSB 


G 3 é 
16-SEP-1984 02:10:14 YAX/VMS Macro v04 00 
vourb00 ACCESS_UPDATE 87 3Eb= | S8c 89:48:33 SUM.SRCJSUMEDIT.MAR; 1 


40 1 38 -SBTTL ACCESS_UPDATE 
: i ; Routine to access update file 
1100 ; 
34 Hi ; Inputs: 
$40 1103 ; RB. = Main [sie sedrece of reqvived update file 
3 1195 ; Rit 2 ait Biot address of next edit 
40 11 § ; 
40 11 ; 
a 1198 ; Ouputs: 
0840 1110 ; R9 = FAB address 
0540 1118 ; 
540 11135 ACCESS_UPDATE: 5 3.Ra> 
1c BB O80 1114 PUSHR #*M<R2,R3, ae cae eas Ste enall 
38 Se nS 3E o543 118 MOVAB IS-ECONNTFILECROD CR 3 = File connected markers 
m : > 
3; 35 A 4 peer Wit ot ee ES alot AB (AD? RS : is'RAB connected to a FAB? 
ea 5B Ay Bees 13D PaPt RASSL FAB(R8) ,R4 : '. it connected to SUM's FAB? 
63 4 D1 0559 «11 ¢ CMPL ts’ : Yes if EQL 
69 13 O55¢ 11 BEQL 
03 171 beef 11 : 108 BRB 208 i 
2 ° R 
FF86 86 30 be 1 § BSBW SAVE _SRC_RFA ; Save source file 
bee 1 8 208: SDISCONNECT RAB = RB, - ; Disconnect RAB from FAB 
o8e3 4199 ERR = SUNSCLOSEERR 7 
7350 «ED b258 1130 BLBC iT tae ; Mark that no file is connected 
$ De 0372 113) chet R10 (R2) ; Is required file already open? 
62 3A Dl 0577 1132 cHPL 10, : Yes if Eat p 
3 3 ara W133 ee CH : Is any file open on this FAB? 
i 1 037 i é hee 4 sn, = ; Floss currently open update file 
= SUM RR 
580 11 ERR = SUMSCLOSE_E : if LBC 
36 29 4 4H 1 § etRL tRoee : Aare’ that no file is open 
6 D 
ae fiay O78 NAM(RIO), = ; Put NAM block into FAB 
28 AS =3B AA OE «=O(0594 «1141 MOVAL tT: ie 
599 1386 SOPEN FAB ="R4, - ; Open required update file 
299 1104 ERR = SUMSOPEN_ERR Paar vai 
PR BRAS ope Bilt, : ATR aAlA ste te open 
62 A . 
AE 1147 308: ; Put FAB address in RAB 
3C AB 54 =O O5A 1133 SCOWNECT RAB eB AD Re? ; Connect RAB to FAB 
28g 116 ERR = SUMSOPEN_ERR 
2450 £9 x 113% BLBC antares f : sere atch file is connected 
os" Ba 5 Osea 1182 MOVE —- R10, (RB) 


OE AB 
12 AB 


02 


00 
1C 


ACCESS_UPDATE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


= 
oOo 
bad 


“ 
oO 
wn 


FW OOONOUnE Ww 


ot a 


"Sr$EP=198¢ 08:38:52 ESUMLSACISUMEDY mar: 1 


ED_W_RFA+O(R11), = 3 Reset RFA (3 words) 
RABSO_RFA+0(R8B) 

ED_W RFA+4(R11), = 

RABSO_RFA+4(RB) 

#RABSC RFA,RABSB_ RAC(RB); Put into RFA access mode 
RAB = R ; Position file 


ERR = SUMSREAD_ERR 
#RABSC_SEQ, RABSB RAC(R8); Reset to sequential access mode 


#*M<R2,R3,R4> 


~SBTTL READ_SRC_LINE 


; There are two entry points: 


read next Line 
Inputs: 
R& = RAB address 
ones 
; Peet erer status 


. 
ne = Line buffer address 
IS_W_LINE_NO(R9) = Line number 


Sete Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge 


-ENABL LSB 

READ_SRC LINE: 
50 O 34 AOVL g 
FEBA 30 BSBW ACES. SRC : 
3350 €9 BLBC ; 


READ_SRC LINEA: 
SGET 3 


RAB = R8, - 
ERR = SUMSREAD_ERR 


DONNL OS OVUMIWNMNO OWS LSS -MDWIWIWIWVIVIVOVVIVTVIVIVIWVIOIVTWVIWVWVIOIWOWVTWVWIIW 
ee ee ee ee ee ee ee ee ee ee ee ee 
EIPIF IA IAIN IPN III IN II rt nt at th hh th 
—— “QWDODWDOO0O00 0000090 0000909090909 09 090909 SI INI NINN SIO OOO 


MOOD NAVE WN S OD NAW EWN O OD NAU EWN SO OONA UE WIN OOONO 


: 2 
Woee 50. READ_SRC_LINE ie ee 


AX/VMS Macro V04-00 
Sum SRCJSUMEDIT.MAR; 1 


: Routine to read one Line from source file 


READ_SRC_LINE to access file and read Line 
READ_SRC_LINEA if file is already accessed and ready to 


Assume success 
Access source file 
Error if LB 


Get next Line from source file 


OK if LBS 
Was erroe end-of-file? 


Set record size 
and buffer address 
Increment Line number 


PD, 1S_B_FLAGS(R9) : Mark as source Line 


re 


; Reset new/replacement Lines count 


50 «EB BLBS  RO,10$ : 
0001827A 8F 50 01 CMPL RO, #RMS$_EOF ; 
18 if BNEQ : No 
04 Ad 08 9 MOVB  #SUM_ST_EOF,IS_B_STATE(R9) ; Set into EOF state 
1 11 ve BRB 20$ 
56 22 ag 3¢ MOVZWL RABSW_RSZ(R8),R ; 
57 28 a8 00 MOVL RABSL RBF(R8)_R : 
06 AD =- BB S_W CINE _NOC(R9) 
20a a9 «(046—=CO@BBA BICB2 BSOM- M_SRCU 
2— ADB 1S_W7IRSERT_NO(R9) ~ 
208: 
05 RSB 
.DSABL LSB 


a 
a 


13 
vvetl co SKIP_SRC_LINES "er See= SB BSiS:83 PAMAMRS Macro YO4n 00 Page 34) 
LSBTTL SKIP_SRC_LINES 


: Routine to skip over source file Lines 
: Inputs: 


R4 = Last Line number to skip 
R8 = RAB address 


Outputs: 
IS_W_LINE_NO(R9) = Last Line number 


G00 2 Se Oe ee Oe ee ee tees 


SKIP. SRC_LINES: 
MOVL 


SOOoOOCCOCOCOOCOOCOOSOOOOOOOOOSOOOOOOOOO 


PAELLA AAAAAA AAPA AA AAA AAA AA AAA AAA 
a a kk kk kk kt 


BEEF WWII WIWWIWIIINONONONOPONNNN) 2 SS 


FW 0 OD NOA UE WW 0 OD NOAUM EW OOOO 
>. 


50 9} dO RO ; Assume success 
06 A9 4 61 B CHP R415 -W_LINE_NO(R9) ; Need to skip any? 
37 19 F BLSS 208 : No if LSS 
FE77 #830 1 BSBW Access. SRC ; Access source file 
21 50 = €9 ; 108 BLBC 3; Error if LBC 
7 SFIND RAB = R8, ; Skip one Line 
7 ty = SUMSREAD_ ERR 
OF SO E9 46 
30 AD —s«BS 49 INCW IS_W_DELETES(R9) ; Increment deleted Lines count 
FFEG 06 AD «601 s54Kts«CS3#‘D $3 ACBW R47 #T,1S_W_LINE_NOC(R9), 108 3 {nerement Sn number and branch b 
: more Lines 
00 05 AJ sCéO01 E2 5 BBSS ig DELIN ; Set deleted Lines i. 
58 1$_B- ~PROEF LAGS (RO). 20$ : pending flag 
58 208: 
05 58 RSB 


BLBC RO,20$ ; Error if LBC 


: 
K 3 
SUMSEDIT 16-SEP-19 AX/VMS Macro V04-00 P 5 | 
vivedatt COMMAND _CHECK eset 8g: 38:35 52 SUM.SRCJSUMEDIT.MAR;1 — 3a | 
659 124 »SBTTL COMMAND_CHECK | 
é } a8 ; Subroutine to check if Line is a command | 
$3 I Inputs: 
$38 1 : R6 = Size of Line 
659 1 38 3 RS = Address of Line 
659 1254; R8 = RAB address 
922 1 2? ; R9 = Input stream control block 
o2 : § ; R10= File block address 
rat 1 38 : aoe 
659 1259 ; apEnNO) = 0:Data 1:Command 
659 1260 : 4LEDTR oe 0: :Normal command 1:Data terminator command 
659 1261 : 4CEDEND tGete terminator 1:End of edit 
659 1 og : 3 i = Size of Line 
659 126 ; R? = Address of Line 
S33 128 Lomo cus 
0659 1 06 ~ ASSUME ver _W oe EQ <UPF_W_ LOC1+2> 
OOOOOO00'EF 58 DO 0659 126 MOVL 8,” SOM_CUR_RAB ; Make the currently active RAB available 
' bees 1268 3 to the TPARSE action routines 
51 OOOOO000B'EF ODE re 1269 MOVAL TPARSE_BLOCK,R1 ; Set pointer to Tparse parenetee block 
28 Al 2A AD 90 vet : oy MOVB Teea TS eacs CAND ; Get current input stream flags byte 
00 28 Al 01 £5 ete 127 BBCC #SUR_Q_AUDITNEW ; but clear new audit trail flag 
oer if - TPA_6_ ISFLAGS IRI), 5$ 
29 Al 94 0671 1275 : CLRB TPA_B_EDFLAGS(R1) ; Clear all edit fl 
2h 1 OA AA 80 0674 127 HOVY —UPF=W~DOTIRIO), = | dot aurcect det volus 
C Al D4 0699 1278 CLRL TPA_W_LOC(R1) ; Clear locator value and Line type 
4 Al 4 Q67C 1279 CLRL TPA_W_LOC1(R1) ; Clear loc-1 and loc- 
0 Al C bene 1280 CLRQ TPA_Q_AUDDS(R1) ; Clear audit descriptor 
8 Al 7C obe 1281 CLRQ TPA_Q CMNT(R1) : Comment descriptor 
40 Al 56 7D 6 1 a6 mMOVQ R6,TPA_Q_LINEDS(R1) ; Save Line size” and address 
08 Al 56 7D 689 1 ova R6 TPASL_STRINGCNT(R1) ; Set TPARSE input descriptor 
QOO0D000'EF DF 06 p 1284 PUSHAL MER_KEY 
tek OF rot) : 5 oh ge mcr. STATE 
00000000 ' GF 2 Fe 6 1 5 CALLS +o “*LIBSTPARSE 
5150 € 6A2 1 3 BLBC ; Error if LBC 
51 ones & D 6A5 1 MOVAL TPARSE merettth R1 : Set pointer to Tparse paramter block 
6Al 8B 6AC 1290 TSTW TPA_ s Mere two locators in command? 
08 1 6AF 1291 BEQL o if EQL, so don’ f “compare them 
26A1 26 A1 Bi 0681 1 3 CMPW ia _W_LOC1(R1), TPA_W toch?) - Is oe ee <= 
4 15 686 129 BLEQ «= 8S ; Yes if LEQ 
0 D4 0688 1294 CLRL RO 3 Set error status 
A 11 ey : 32 8s BRB 20$ 3 and return 
5o 401 7D O6B8C 1 39 : MOVQ TPA_Q LINERS ER} -RO 3; Reset Line size and address, 
22 AB oH 3 6cO 1 38 VW R6, RABSW_RSZ(RB) 3; Reset RAB block record size 
2A A928 Al eC ; MOVB TPA,B ISFLAGS(RI), - } input stream flags byte, 
09 AA 29 Al 90 06C9 1301 MOVB TPA_B_EDFLAGS(R1), =- ; edit flags byte, 
6CE 1302 UPF “B-EDFLAGS (R105 


SunsED RT 


COMMAND _ CHECK 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oo 


DRE AA AAA A AAA AAAS 


CH= BC HC 

RNOANAA SI SBD B— 
+x wwoZzee ow dnen 
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1 
1 
1 
1 
1 
1 


3 
5 


71984 08:58:58 


-W_DOT(RI0) ; 


AX/VMS Macro V04-00 
SUM.SRCISUMEDIT.MAR; 1 


dot value, 


; locator iP 
: and locator 2 
; Comment descriptor 


_TeAUDSt RID) 


: If new audit trail 
; Copy size of string 


it string 


; Set Line type flags 


y00e 500 COMMAND _ CHECK "Br eeea oa BS: 58:45 | PaMAves Hare O4n 00 Page (3 


Tparse action routines 


Jee ee te ee 


CT_BLANKS_SIG: 
BBSS § #TPASV_BLANKS, TPASL_OPTIONS (AP), 10$ 


0098 
00 04 ac 00 €C 
4 RET 


0 
ACT_BLANKS_NSIG: 


000 : 
00 04 AC 00 £3 BBCC #TPASV_BLANKS, TPASL_OPTIONS(AP) ,10$ 


“,WORD  “M<R6> a 


MOVL #1,R1 ; Set index 

MOVAB TPA Q_LINEDS(AP) ,R6 ; Point to buffer descriptor 

DECW (R6) ; Reduce Line Length by one 

PUSHR #*M<RO,R1 Re aR Re R5> ; Save registers across MOVC3s. 
» RI 3 


04 RET 
0 ACT_PERCENT: 
0000 «WORD 
28 AC «6(01—CsiB8B 0 BISB #SUM_M_AUDIT, = : Switch on audit trail 
TPA_B_TSFLAGS (AP) 
04 070 RET 
Qe 1346 
9 ACT_BACKSLASH: 
0000 .WORD 0 
28 AC 6(01Ss#BA BICB #SUM_M_AUDIT, - ; Switch off audit trail 
TPA_B_TSFLAGS (AP) 
04 RET 
1 a 
1 ACT_ESC 
1 
1 
1 


MOVC3 (R6) ,@4 (RO) a4(R6) : Move up Line. 
MOVL SUM CUR RAB Get the current RAB, 
s #RAB$v_COC,- : check to see if we should 
RABSL_ROP(R1), 10$ ; propagate the shifted string 
MOVC3 (R6),84(R6) ,@RABSL_UBF(RI) ; to the UBF. 
10$: +. #°M<RO,R1,R2,R3,R4,R5> ; Restore registers. 


F 
04 B86 04 B641 66 B 
51 00000000" EF 4 


1 
06 04 Al 
24 B1 04 B6 $6 28 


ee em ee ee ed ad od 8 dd ed dd dd 8 dd 
SN NNN DAA AAA AAO AITO I BS BS BS BS BS BS IWIN 
NOAA RUN OOD NAAN WIN OS OD NOAUN EWN OOD NOAUE WIN O OD NAME WI OOD NOU EIN 


ACT_EXIT: 
000 . WO 0 
2E AC 20 AC 8B 4 MOVW TPASL_PARAM(AP), = ; Set return type 
4 TPA_WOLINTYP(APS 
04 074 RET 

4 ; 
4 
4 AcT_LOC1: 

000 4 «WORD 


56 "40 AC "38 


0 
2E ac 6(01Cts«é#BB MOVW #CMD_M_CMND,TPA_W_LINTYP(AP) ; Assume normal command 


AC 


AC 


10 


00 04 AC 


Moe 


2c 


2A 


30 
30 


AC 


AC 


AC 


COMMAND _ CHECK 


“tf 


PEPER AS MAINT 


VINOOOE NVUIUVIVINE T&S COCOCICO INS WOOO > MWC DW > & NI O 


OOO 090909 0909098 SI NII INS INNO 


— 
oS 
wr 


ee ce ee ee ee ee ee ee ee ee ee a a a ee a ee ee ed ed ed dd ad od od dd 
P 
=~ 


SoCo OCOOCOOCOCOCOOOOCOOCOCOOOGOOOCCOSOCOCCOOOCOOOOCOOOOOOO 


_" 
So 
Sad 


"SSEP=198¢ 08:38:53 ESUmISRcTSUmEDYe-man:1 = "88" (38, 


TPA_W_LOC (AP) , TPA_W_LOC1 (AP) 

10$ H L is a normal command 

#CMD_M CMND!CMD_M_EDTRM, TPA_W_LINTYP(AP) ; Set as "date terminator co 
TPA_@_COC (AP) 


TPA_W_LOC (AP) , TPA_W_LOC2(AP) 
0 
TPA_W_D9T(AP) , TPA_W_LOC (AP) 


0 
TPASL_NUMBER(AP) , TPA_W_LOC(AP) 
TPA_W_LOC(AP), TPA _W_BOT (AP) 


0 
TPASL_NUMBER(AP) , TPA_W_LOC(AP) 
TPA_W7LOC (AP) , TPA_W BOT (AP) 


0 

TPASL_STRINGPTR(AP) , TPA_Q_AUDDS+4 (AP) 

OoUn A AUDI INGY. = : Set new audit trail flag 
#TPASV_BLANKS, TPASL_OPTIONS(AP),10$ ; Make blanks significant 


0 

TPA_Q_AUDDS(AP) ,#16 ; Is audit trail at maximum size? 
10$ 3; Yes if GE 

TPA_Q_AUDDS (AP) ; Increment audit trail size 


0 
#TPASV_BLANKS,TPASL_OPTIONS(AP),10$ ; Switch off blank processing 


vO4=000. 


COMMAND _ CHECK 
04 Q7A9 


0000 
38 AC 08 AC ? 7AC 


“ 
@ 
Sea 

ba 8 HD WS bt a 


29 ac 01 0088 784 
04 


RET 


RET 


ACT_SUPPRESS: 
ORD 


RET 


WORD 
Ove 


SSEP=198 


4 
4 


GNESI NTRP 


0 
TPASL_STRINGCNT (AP) , TPA_Q_CMNT (AP) 


; Set clash messages suppressed flag 


9 
7) 


197 56e- 1386 Og: 49:15 AX/VMS Macro V04-00 


SUMSCLOSE “SEP=1 SUM. SRCJSUMEDIT.MAR; 1 


789 14 9 -SBTTL SUMSCLOSE 
789 1451 ; 
7B9 14 6 : 
789 1453 ; This procedure is called from the main program prior to closing 
7B9 1454 ; the input file. It ensures that the main program source file 
7B9 1455 ; is connected to the RAB. 
789 14 § ; 
789 1457 ; 
789 14 8 ; Inputs: 
7B9 1459 ; 
44 be + 3 4(AP) = Address of SUM control block 
78 1469 ; Outputs: 
7B9 1463 ; 
7B9 1464 ; None 
789 1465 ; 
0789 1998 ; 
0300 378° ret eENTRY SUMSCLOSE,“M<R8,R9> 
51 04 AC DO 0788 ye 4 MOVL 4(AP),R1 : Get control block address 
59 O4 Al OD 7BF 1470 MOVL M_L_ISDATA(R1),R9 ; and set data block pointer 
703 1471 BEQL 
69 Be gre 1e%6 TSTL S_L_FILELIST(RY) ; Is there an update List? 
28. 1 7C? «(147 BEQL 0 ; No if EQL, file already accessed 
51 1C¢ AY DO O7C9 1474 MOVL I1S_L_MAIN_FAB(R9) ,R1 ; Get main program FAB address 
02 Al Be Brce 1475 TSTW FABSO_IFITR1) ; Is source file open? 
07 #1 a 1678 BEQL 10$ ; No if EQL 
58 20 Ad Be 07D 147 MOVL 1S_L_MAIN_RAB(RY) ,RB ; Set RAB pointer 
FCD2 0 8708 1608 — BSBW ACTESS_SrC 3; Access source file 
08 Ad if 0709 1480 TSTL js L_OPEN_FILE(R9) ; Is an ypcete file open? 
1 1 fas 1481 BEQL os 3 No if EQL 
7DE 186 SCLOSE FAB = IS_T_FAB(R9), - 
O7DE 14 ERR = SUMSTLOSE ERR ; Close update file 
08 AD D4 OEE 13 CLRL IS_L_OPEN_FILE(R9) ; and clear marker 
O7F1 1485 208: 
04 O7F1 1486 RET 
Ber 1487 ; 
7F bt +3 ; 
O7F 1489 ~END 
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Symbol table 828 Pa} 984 84:38:43 USUNL SRCISUMEDIT “MARS 1 . (28) 
TPA_B_EDFLAGS = 

TPA_B_ISFLAGS = 

TPA_Q_AUD = 

TPA_Q_C = 

TPA_Q_LINEDS 4 

TPA_W_DOT = A 

TPA_W_LINTYP = E 

TPA_W_LOC = C 

TPA_W_LOC1 = 4 
TPA_W_LOC2 = § 
UPF _B_EDFLAGS 
UPF_B_FIFLAGS 8 8 
UPF _B_FILEN f 
UPF -K-BLN 000009 
UPF _L_PTR 44 
UPF_Q_AUDDS 001 
UPF_Q_CMNT 0000002 
UPF_Q EDITS s4's4e bY 
UPF_T_AUDST B08 ait 
UPF_T_NAM 00000 
UPF_V_INIT = 4446444 
UPF _W_DOT 000000A 
UPF _W_LOC1 00000004 
UPF _W_LOC2 00000006 

gece ene namnn omen ee + 
H Psect synopsis ! 

PSECT name Allocation PSECT No. Attributes 

» Os . 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000098 ( 152.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR ECE RD WRT NOVEC BYTE 
SUMSRW_DATA 0000050 ¢ 80.) 8 ( ¢-3 NOPIC USR CON REL LCL NOSHR NOEXE- aD WRT NOVEC LOKG 
SUMSRO_DATA i444 4 ( 8.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
_LIBSSTATES 443 ( 231.) 04 ¢ 4.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
_LIBSKEYOS 000000 8 ( 0.) O5¢ 5.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 

LIBSKEY1$ 00000000 ( 0.) Be ¢ 6.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 
SUMSCODE QO0007F2 ( 2034.) O07 ( 7.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 

geen ener ee en eer ene eee eee 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 38 §:00:00.6 

Command processing 147 :00:01. 

“. : 


Pass 
Symbol table sort 
Pass 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


$93 8F-a8 88:88:086 
§ Rea Bey 
4 HERR RRS 


The working set Limit was 1950 pages. 


G 4 
SAR Macro Run Statistics "or geE a 382 88 43: 43 


121870 bytes, (239 pages) of virtual memory were used to but ter the slogateand 8 code. 
There were 50 pages of symbol table pose all y: to hold 921 non-local and 83 local symbols. 
1489 source Lines were read in Pass produc ng.‘ object records in Pass 2. 

65 pages of virtual memory were used to define 52 macros. 


tee mome renee sen m ore na amaase $ 


! Macro Library statistics ! 


d cea meme w omar e Teno ween ew oa ee + 


Macro Library name Macros defined 

-8255$DUA SUM.OBJJSUM.MLB; 1 7 
ELE aasets STARLET .MLB;2 $2 

Torre (all Libraries) 6 


1413 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SUMEDIT/OBJ=OBJ$:SUMEDIT MSRC$:SUMEDIT/UPDATE=(ENH$: SUMEDIT) +LIB$:SUM/LIB 
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